﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%	
select case v
case "0"
we0="<br/>"
%>
<card id="main" title="舞文弄墨"><p align="<%=qingtian.px%>">
<%
case "1"
zi="<span style=""color:#FF5500"">"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<title>舞文弄墨</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select
%>
<%=dao%>==舞文弄墨==<%=we0%>
<%if v=1 then %>
<form action="search.asp?sid=<%=sidd%>" method="post">
<%end if%>
<%
response.write ""&sou&"【请输入关键字】"&we0&""&we&"-------------<br/>"
Response.write "<input name=""search"" maxlength=""120"" size='100' value=""""/><br/>"
Response.write "赠友类型:<select name=""style"">"
response.write "<option value=""lover"">送爱人</option>"
response.write "<option value=""friend"">送朋友</option>"
response.write "</select><br/>"
Response.write "文字类型:<select name=""words"">"
response.write "<option value=""seven"">七言诗</option>"
response.write "<option value=""five"">五言诗</option>"
response.write "</select><br/>"
Response.write "诗句类型:<select name=""type"">"
response.write "<option value=""1"">藏头诗</option>"
response.write "<option value=""2"">层次递进</option>"
response.write "</select><br/>"
if v=0 then
Response.write "<anchor>生成诗句<go method=""post"" href=""search.asp?sid="&sidd&""">"
Response.write "<postfield name=""search"" value=""$(search)""/>"
Response.write "<postfield name=""words"" value=""$(words)""/>"
Response.write "<postfield name=""type"" value=""$(type)""/>"
Response.write "<postfield name=""style"" value=""$(style)""/>"
Response.write "</go></anchor>"
else
%>
<input type="submit" value="生成诗句"/>
</form>
<%end if%>

<%=we0%><%=sou%>

----------<%=we0%>
<%
end Function
%>